vba 某一列有效的行数-Excel VBA动态设置行高（根据某一列每行的字符数量）

在Excel表格中，如果文字太多，我们可以适当换行并设置自动行高。这里我们介绍一个按字符数量来自动调整行高

效果图：

代码如下：

Sub 动态设置行高()

    Dim rown As Integer

    Dim high As Integer

    Dim charlen As Integer

    Dim Lrow As Long

'    Dim Rng As Range

    Dim szs As Integer

    Dim zms As Integer

    Lrow = Range("D" & Cells.Rows.Count).End(xlUp).Row - 1

    For rown = 2 To Lrow + 1

'        Rng = Range("D" & rown)

        Set reg1 = CreateObject("VBSCRIPT.REGEXP")

        Set reg2 = CreateObject("VBSCRIPT.REGEXP")

        reg1.Pattern = "d{1}"

        reg2.Pattern = "[A-Za-z]{1}"

        reg1.Global = True

        reg2.Global = True

        Set sz = reg1.Execute(Range("D" & rown))

        Set zm = reg2.Execute(Range("D" & rown))

        szs = sz.Count

        zms = zm.Count

        charlen = Len(Range("D" & rown)) - szs / 2 - zms / 2

        high = Application.Round(charlen / 50 + 0.5, 0) - 1

        Rows(rown & ":" & rown).Select

        Selection.RowHeight = 20 + high * 16

    Next rown

End Sub

代码分析：

确定D列中第一个单元格的字符数量，一行所能容纳的字符数量，算出容纳文字所需的行数（有考虑数字与字母所占宽度与汉字的差别），然后再按行数设置适当的行高。